/* GUI CONVERTED from ecroget.i (converter v1.76) Thu Apr 25 18:57:24 2002 */
/* ecroget.i - QAD_WKFL DEFINITION FILE FOR ECD2_DET FIELDS                   */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.4 $                                                           */
/*V8:ConvertMode=Maintenance                                                  */
/* REVISION: 8.6      DATE CREATED: 06/24/97    BY: Joe Gawel *K0F4*          */
/* REVISION: 9.1      DATEMODIFIED: 08/14/00    BY: *N0KW* Jacolyn Neder      */
/* $Revision: 1.4 $    BY: Jean Miller           DATE: 04/12/02  ECO: *P05H*  */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/* GET ecd2_det SIDEFILE RECORDS FROM QAD_WKFL */
find first qad_wkfl where
       qad_wkfl.qad_key1 = "ecd2_det"
   and qad_wkfl.qad_key2 = string({&nbr},"x(24)") +
                           string({&routing},"x(18)") +
                           string(string({&op}),"x(5)")
{&lock} no-error.

if available qad_wkfl then do:
   assign
      ecd2_milestone    = (if qad_wkfl.qad_charfld[1] = "YES" then yes else no)
      ecd2_tran_qty     = integer(qad_wkfl.qad_decfld[1])
      ecd2_sub_lead     = integer(qad_wkfl.qad_decfld[2])
      ecd2_queue        = qad_wkfl.qad_decfld[3]
      ecd2_wait         = qad_wkfl.qad_decfld[4]
      ecd2_move         = qad_wkfl.qad_decfld[5]
      ecd2_inv_value    = qad_wkfl.qad_decfld[6]
      ecd2_mv_nxt_op    = (if qad_wkfl.qad_charfld[2] = "YES" then yes else no)
      ecd2_wipmtl_part  = qad_wkfl.qad_charfld[3]
      ecd2_po_nbr       = qad_wkfl.qad_charfld[4]
      ecd2_po_line      = integer(qad_wkfl.qad_decfld[7])
      ecd2_cyc_rate     = qad_wkfl.qad_decfld[8]
      ecd2_auto_lbr     = (if qad_wkfl.qad_charfld[5] = "YES" then yes else no).
end.

else do:
   assign
      ecd2_milestone    = yes
      ecd2_tran_qty     = 0
      ecd2_sub_lead     = 0
      ecd2_queue        = 0
      ecd2_wait         = 0
      ecd2_move         = 0
      ecd2_inv_value    = 0
      ecd2_mv_nxt_op    = no
      ecd2_wipmtl_part  = ""
      ecd2_po_nbr       = ""
      ecd2_po_line      = 0
      ecd2_cyc_rate     = 0
      ecd2_auto_lbr     = no.
end.
